home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE15 / CONSTRUC / RECORD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-10-07  |  1004 b   |  36 lines
  1. {$APPTYPE CONSOLE}
  2. uses DB, DBTables;
  3.  
  4. var i: Integer;
  5. begin
  6.   if ParamCount >= 1 then with TTable.Create(nil) do
  7.   try
  8.     TableName := ParamStr(1);
  9.     Active := True;
  10.     writeln('Type');
  11.     writeln('  TRecord = record');
  12.     for i:=0 to Pred(FieldDefs.Count) do
  13.     begin
  14.       if (FieldDefs[i].FieldClass = TStringField) then
  15.         writeln(' ':4,FieldDefs[i].Name,': String[',FieldDefs[i].Size,'];')
  16.       else
  17.       begin
  18.         if (FieldDefs[i].FieldClass = TIntegerField) or
  19.            (FieldDefs[i].FieldClass = TWordField) or
  20.            (FieldDefs[i].FieldClass = TSmallintField) then
  21.           writeln(' ':4,FieldDefs[i].Name,': Integer;')
  22.         else
  23.           if (FieldDefs[i].FieldClass = TCurrencyField) then
  24.             writeln(' ':4,FieldDefs[i].Name,': Double;')
  25.           else
  26.             writeln('{ ':6,FieldDefs[i].Name,' }')
  27.       end
  28.     end
  29.   finally
  30.     writeln('  end;');
  31.     Free
  32.   end
  33.   else
  34.     writeln('Usage: record tablename')
  35. end.
  36.